home *** CD-ROM | disk | FTP | other *** search
- object frmServerWizard: TfrmServerWizard
- Left = 113
- Top = 122
- HelpContext = 106
- BorderIcons = [biSystemMenu, biHelp]
- BorderStyle = bsDialog
- Caption = 'Internet Site Wizard'
- ClientHeight = 287
- ClientWidth = 417
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Pitch = fpVariable
- Font.Style = []
- Icon.Data = {<image000.ico>}
- OldCreateOrder = True
- Position = poScreenCenter
- Scaled = False
- OnClose = FormClose
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object PageControl1: TPageControl
- Left = 0
- Top = 0
- Width = 417
- Height = 249
- ActivePage = tabIntro
- Align = alTop
- TabOrder = 0
- object tabIntro: TTabSheet
- HelpContext = 106
- Caption = 'tabIntro'
- TabVisible = False
- object lbl1: TLabel
- Left = 130
- Top = 8
- Width = 265
- Height = 57
- AutoSize = False
- Caption =
- 'This wizard helps you setup a server connection. Once you have s' +
- 'et your server connection you will be able to easily upload and ' +
- 'download files to your server.'
- WordWrap = True
- end
- object lbl2: TLabel
- Left = 130
- Top = 67
- Width = 265
- Height = 57
- AutoSize = False
- Caption =
- 'A Server is a computer that is connected to the internet. This i' +
- 's the computer that you '#39'Logon'#39' to when you are surfing. Apart f' +
- 'rom this, there is nothing all that special about a Server. '
- WordWrap = True
- end
- object lbl3: TLabel
- Left = 130
- Top = 192
- Width = 265
- Height = 39
- AutoSize = False
- Caption =
- 'If you don'#39't know the address of your server, or are confused by' +
- ' all this terminology, then press the HELP button. '
- WordWrap = True
- end
- object imgWizard: TPaintBox
- Left = 8
- Top = 7
- Width = 110
- Height = 225
- OnPaint = imgWizardPaint
- end
- end
- object tabServer: TTabSheet
- Caption = 'tabServer'
- TabVisible = False
- object lblServer: TLabel
- Left = 130
- Top = 182
- Width = 265
- Height = 15
- AutoSize = False
- Caption = 'What is your Server Address?'
- WordWrap = True
- end
- object lblName: TLabel
- Left = 130
- Top = 65
- Width = 265
- Height = 17
- AutoSize = False
- Caption = 'What do you want to call your server?'
- WordWrap = True
- end
- object Label2: TLabel
- Left = 130
- Top = 7
- Width = 265
- Height = 46
- AutoSize = False
- Caption =
- 'First off, name your server. This server name will appear in the' +
- ' Internet Files server list, so try and make it something meanin' +
- 'gful, like '#39'The Gascooker Server'#39
- WordWrap = True
- end
- object Label3: TLabel
- Left = 130
- Top = 115
- Width = 271
- Height = 59
- AutoSize = False
- Caption =
- 'Your server address uniquely identifies your server. Usually it ' +
- 'is looks something like '#39'www.gascooker.com'#39'. If you are unsure o' +
- 'f your server address you will need to e-mail your ISP.'
- WordWrap = True
- end
- object txtAddress: TEdit
- Tag = 34
- Left = 129
- Top = 198
- Width = 265
- Height = 21
- HelpContext = 290
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- end
- object txtName: TEdit
- Left = 130
- Top = 84
- Width = 265
- Height = 21
- HelpContext = 289
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Pitch = fpVariable
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- end
- end
- object tabLogin: TTabSheet
- Caption = 'tabLogin'
- TabVisible = False
- object lblLogin: TLabel
- Left = 130
- Top = 59
- Width = 265
- Height = 15
- AutoSize = False
- Caption = 'What is your Login name?'
- WordWrap = True
- end
- object lblPassword: TLabel
- Left = 130
- Top = 168
- Width = 265
- Height = 19
- AutoSize = False
- Caption = 'What is your Password?'
- WordWrap = True
- end
- object Label4: TLabel
- Left = 130
- Top = 9
- Width = 265
- Height = 46
- AutoSize = False
- Caption =
- 'Since many people can use the same server, you need a login name' +
- '. Your login name is used to identify you to the server.'
- WordWrap = True
- end
- object Label5: TLabel
- Left = 131
- Top = 105
- Width = 265
- Height = 56
- AutoSize = False
- Caption =
- 'To stop other people from using your login name, you also need a' +
- ' password to connect to your server. If you don'#39't know your pass' +
- 'word you will need to connect to your ISP.'
- WordWrap = True
- end
- object txtLogin: TEdit
- Tag = 36
- Left = 130
- Top = 76
- Width = 265
- Height = 21
- HelpContext = 287
- TabOrder = 0
- end
- object txtPassword: TEdit
- Tag = 37
- Left = 130
- Top = 184
- Width = 265
- Height = 21
- HelpContext = 288
- PasswordChar = '*'
- TabOrder = 1
- end
- object butAdvanced: TButton
- Left = 329
- Top = 209
- Width = 70
- Height = 25
- Caption = '&Advanced'
- TabOrder = 2
- OnClick = butAdvancedClick
- end
- end
- object tabAdvanced: TTabSheet
- Caption = 'tabAdvanced'
- TabVisible = False
- object grpAdvanced: TGroupBox
- Left = 129
- Top = 8
- Width = 273
- Height = 221
- Caption = 'Advanced Server Details'
- TabOrder = 0
- object lblDir: TLabel
- Left = 12
- Top = 28
- Width = 252
- Height = 16
- AutoSize = False
- Caption = 'What is your default &remote directory?'
- FocusControl = txtDirectory
- WordWrap = True
- end
- object lblPort: TLabel
- Left = 12
- Top = 143
- Width = 64
- Height = 13
- Caption = 'Port &Number:'
- FocusControl = spinPort
- end
- object Label6: TLabel
- Left = 12
- Top = 76
- Width = 244
- Height = 58
- AutoSize = False
- Caption =
- 'Your computer and server talk to each other via a port. By defau' +
- 'lt they communicate via port 21. You should not need to change t' +
- 'he port number unless your ISP tells you to do so.'
- WordWrap = True
- end
- object Label9: TLabel
- Left = 121
- Top = 143
- Width = 42
- Height = 13
- Caption = 'Timeout:'
- end
- object Label10: TLabel
- Left = 179
- Top = 163
- Width = 40
- Height = 13
- Caption = 'Seconds'
- end
- object txtDirectory: TEdit
- Tag = 35
- Left = 11
- Top = 45
- Width = 252
- Height = 21
- HelpContext = 283
- TabOrder = 0
- end
- object spinPort: TSpinEdit
- Left = 11
- Top = 159
- Width = 53
- Height = 23
- HelpContext = 284
- AutoSize = False
- MaxValue = 0
- MinValue = 0
- TabOrder = 1
- Value = 21
- end
- object chkAlive: TCheckBox
- Left = 12
- Top = 194
- Width = 137
- Height = 17
- HelpContext = 286
- Caption = 'Keep connection alive'
- Checked = True
- State = cbChecked
- TabOrder = 2
- end
- object spinTimeOut: TSpinEdit
- Left = 122
- Top = 159
- Width = 53
- Height = 23
- HelpContext = 285
- AutoSize = False
- MaxValue = 60
- MinValue = 1
- TabOrder = 3
- Value = 30
- end
- end
- end
- object tabFinal: TTabSheet
- Caption = 'tabFinal'
- TabVisible = False
- object Label1: TLabel
- Left = 130
- Top = 9
- Width = 265
- Height = 46
- AutoSize = False
- Caption =
- 'Well done!!! - your server is now configured. Just double click ' +
- 'on your server name from the Internet File list and HotDog will ' +
- 'attempt to connect you to it.'
- WordWrap = True
- end
- object Label7: TLabel
- Left = 132
- Top = 61
- Width = 265
- Height = 46
- AutoSize = False
- Caption =
- 'If you have any problems, try re-entering your server details in' +
- 'to the wizard. If you are new to the Internet, have a look at th' +
- 'e wizard help (click HELP).'
- WordWrap = True
- end
- object Label8: TLabel
- Left = 132
- Top = 112
- Width = 265
- Height = 33
- AutoSize = False
- Caption =
- 'It explains in detail how to upload files to the internet and wh' +
- 'at questions to ask your ISP if things go wrong!'
- WordWrap = True
- end
- end
- end
- object Panel1: TPanel
- Left = 0
- Top = 249
- Width = 417
- Height = 38
- HelpContext = 106
- TabOrder = 1
- object butFinish: TButton
- Left = 252
- Top = 6
- Width = 75
- Height = 25
- Caption = '&Finish'
- ModalResult = 1
- TabOrder = 3
- Visible = False
- end
- object butNext: TButton
- Left = 252
- Top = 6
- Width = 75
- Height = 25
- Caption = 'Next >&>'
- TabOrder = 2
- OnClick = butNextClick
- end
- object butCancel: TButton
- Left = 332
- Top = 6
- Width = 75
- Height = 25
- Cancel = True
- Caption = '&Cancel'
- ModalResult = 2
- TabOrder = 4
- OnClick = butCancelClick
- end
- object butBack: TButton
- Left = 176
- Top = 6
- Width = 75
- Height = 25
- Caption = '&<< Back'
- Enabled = False
- TabOrder = 1
- OnClick = butBackClick
- end
- object btnHelp: TButton
- Left = 6
- Top = 6
- Width = 75
- Height = 25
- Caption = '&Help'
- TabOrder = 0
- OnClick = btnHelpClick
- end
- end
- end
-